home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sys / scsi.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  4.4 KB  |  152 lines
  1. if (!defined &_SCSI_H) {
  2.     eval 'sub _SCSI_H {1;}';
  3.     require 'machparam.ph';
  4.     if (!defined &BYTE_ORDER) {
  5.     }
  6.     eval 'sub SCSI_TEST_UNIT_READY {0x00;}';
  7.     eval 'sub SCSI_REZERO_UNIT {0x01;}';
  8.     eval 'sub SCSI_REQUEST_SENSE {0x03;}';
  9.     eval 'sub SCSI_FORMAT_UNIT {0x04;}';
  10.     eval 'sub SCSI_REASSIGN_BLOCKS {0x07;}';
  11.     eval 'sub SCSI_READ {0x08;}';
  12.     eval 'sub SCSI_WRITE {0x0a;}';
  13.     eval 'sub SCSI_SEEK {0x0b;}';
  14.     eval 'sub SCSI_INQUIRY {0x12;}';
  15.     eval 'sub SCSI_MODE_SELECT {0x15;}';
  16.     eval 'sub SCSI_RESERVE_UNIT {0x16;}';
  17.     eval 'sub SCSI_RELEASE_UNIT {0x17;}';
  18.     eval 'sub SCSI_COPY {0x18;}';
  19.     eval 'sub SCSI_MODE_SENSE {0x1A;}';
  20.     eval 'sub SCSI_START_STOP {0x1b;}';
  21.     eval 'sub SCSI_RECV_DIAG_RESULTS {0x1c;}';
  22.     eval 'sub SCSI_SEND_DIAGNOSTIC {0x1d;}';
  23.     eval 'sub SCSI_PREVENT_ALLOW {0x1e;}';
  24.     eval 'sub SCSI_READ_CAPACITY {0x25;}';
  25.     eval 'sub SCSI_READ_EXT {0x28;}';
  26.     eval 'sub SCSI_WRITE_EXT {0x2a;}';
  27.     eval 'sub SCSI_SEEK_EXT {0x2b;}';
  28.     eval 'sub SCSI_WRITE_VERIFY {0x2e;}';
  29.     eval 'sub SCSI_VERIFY_EXT {0x2f;}';
  30.     eval 'sub SCSI_SEARCH_HIGH {0x30;}';
  31.     eval 'sub SCSI_SEARCH_EQUAL {0x31;}';
  32.     eval 'sub SCSI_SEARCH_LOW {0x32;}';
  33.     eval 'sub SCSI_SET_LIMITS {0x33;}';
  34.     eval 'sub SCSI_COMPARE {0x39;}';
  35.     eval 'sub SCSI_COPY_VERIFY {0x3a;}';
  36.     eval 'sub SCSI_REWIND {0x01;}';
  37.     eval 'sub SCSI_READ_BLOCK_LIMITS {0x05;}';
  38.     eval 'sub SCSI_TRACK_SELECT {0x0b;}';
  39.     eval 'sub SCSI_READ_REVERSE {0x0f;}';
  40.     eval 'sub SCSI_WRITE_EOF {0x10;}';
  41.     eval 'sub SCSI_SPACE {0x11;}';
  42.     eval 'sub SCSI_VERIFY {0x13;}';
  43.     eval 'sub SCSI_READ_BUFFER {0x14;}';
  44.     eval 'sub SCSI_ERASE_TAPE {0x19;}';
  45.     eval 'sub SCSI_LOAD_UNLOAD {0x1b;}';
  46.     eval 'sub SCSI_LOCATE {0x2b;}';
  47.     eval 'sub SCSI_READ_POSITION {0x34;}';
  48.     if ( &BYTE_ORDER ==  &BIG_ENDIAN) {
  49.     }
  50.     else {
  51.     }
  52.     if ( &BYTE_ORDER ==  &BIG_ENDIAN) {
  53.     }
  54.     else {
  55.     }
  56.     eval 'sub SCSI_RESERVED_STATUS {
  57.         local($byte) = @_;
  58.         eval "($byte&0x80)";
  59.     }';
  60.     if ( &BYTE_ORDER ==  &BIG_ENDIAN) {
  61.     }
  62.     else {
  63.     }
  64.     eval 'sub SCSI_NO_SENSE_DATA {0x00;}';
  65.     eval 'sub SCSI_NOT_READY {0x04;}';
  66.     eval 'sub SCSI_NOT_LOADED {0x09;}';
  67.     eval 'sub SCSI_INSUF_CAPACITY {0x0a;}';
  68.     eval 'sub SCSI_HARD_DATA_ERROR {0x11;}';
  69.     eval 'sub SCSI_WRITE_PROTECT {0x17;}';
  70.     eval 'sub SCSI_CORRECTABLE_ERROR {0x18;}';
  71.     eval 'sub SCSI_FILE_MARK {0x1c;}';
  72.     eval 'sub SCSI_INVALID_COMMAND {0x20;}';
  73.     eval 'sub SCSI_UNIT_ATTENTION {0x30;}';
  74.     eval 'sub SCSI_END_OF_MEDIA {0x34;}';
  75.     if ( &BYTE_ORDER ==  &BIG_ENDIAN) {
  76.     }
  77.     else {
  78.     }
  79.     eval 'sub SCSI_CLASS7_NO_SENSE {0;}';
  80.     eval 'sub SCSI_CLASS7_RECOVERABLE {1;}';
  81.     eval 'sub SCSI_CLASS7_NOT_READY {2;}';
  82.     eval 'sub SCSI_CLASS7_MEDIA_ERROR {3;}';
  83.     eval 'sub SCSI_CLASS7_HARDWARE_ERROR {4;}';
  84.     eval 'sub SCSI_CLASS7_ILLEGAL_REQUEST {5;}';
  85.     eval 'sub SCSI_CLASS7_MEDIA_CHANGE {6;}';
  86.     eval 'sub SCSI_CLASS7_UNIT_ATTN {6;}';
  87.     eval 'sub SCSI_CLASS7_WRITE_PROTECT {7;}';
  88.     eval 'sub SCSI_CLASS7_BLANK_CHECK {8;}';
  89.     eval 'sub SCSI_CLASS7_VENDOR {9;}';
  90.     eval 'sub SCSI_CLASS7_POWER_UP_FAILURE {10;}';
  91.     eval 'sub SCSI_CLASS7_ABORT {11;}';
  92.     eval 'sub SCSI_CLASS7_EQUAL {12;}';
  93.     eval 'sub SCSI_CLASS7_OVERFLOW {13;}';
  94.     eval 'sub SCSI_CLASS7_RESERVED_14 {14;}';
  95.     eval 'sub SCSI_CLASS7_RESERVED_15 {15;}';
  96.     eval 'sub SCSI_MAX_SENSE_LEN {64;}';
  97.     if ( &BYTE_ORDER ==  &BIG_ENDIAN) {
  98.     if (defined ¬def) {
  99.     }
  100.     }
  101.     else {
  102.     }
  103.     eval 'sub SCSI_DISK_TYPE {0;}';
  104.     eval 'sub SCSI_TAPE_TYPE {1;}';
  105.     eval 'sub SCSI_PRINTER_TYPE {2;}';
  106.     eval 'sub SCSI_HOST_TYPE {3;}';
  107.     eval 'sub SCSI_WORM_TYPE {4;}';
  108.     eval 'sub SCSI_ROM_TYPE {5;}';
  109.     eval 'sub SCSI_SCANNER_TYPE {6;}';
  110.     eval 'sub SCSI_OPTICAL_MEM_TYPE {7;}';
  111.     eval 'sub SCSI_MEDIUM_CHANGER_TYPE {8;}';
  112.     eval 'sub SCSI_COMMUNICATIONS_TYPE {9;}';
  113.     eval 'sub SCSI_NODEVICE_TYPE {0x7f;}';
  114.     if ( &BYTE_ORDER ==  &BIG_ENDIAN) {
  115.     }
  116.     else {
  117.     }
  118.     if ( &BYTE_ORDER ==  &BIG_ENDIAN) {
  119.     }
  120.     else {
  121.     }
  122.     if ( &BYTE_ORDER ==  &BIG_ENDIAN) {
  123.     }
  124.     else {
  125.     }
  126.     if ( &BYTE_ORDER ==  &BIG_ENDIAN) {
  127.     }
  128.     else {
  129.     }
  130.     if ( &BYTE_ORDER ==  &BIG_ENDIAN) {
  131.     }
  132.     else {
  133.     }
  134.     if ( &BYTE_ORDER ==  &BIG_ENDIAN) {
  135.     }
  136.     else {
  137.     }
  138.     if ( &BYTE_ORDER ==  &BIG_ENDIAN) {
  139.     }
  140.     else {
  141.     }
  142.     if ( &BYTE_ORDER ==  &BIG_ENDIAN) {
  143.     }
  144.     else {
  145.     }
  146.     if ( &BYTE_ORDER ==  &BIG_ENDIAN) {
  147.     }
  148.     else {
  149.     }
  150. }
  151. 1;
  152.